This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
summary(cars)
## speed dist
## Min. : 4.0 Min. : 2.00
## 1st Qu.:12.0 1st Qu.: 26.00
## Median :15.0 Median : 36.00
## Mean :15.4 Mean : 42.98
## 3rd Qu.:19.0 3rd Qu.: 56.00
## Max. :25.0 Max. :120.00
You can also embed plots, for example:
Note that the echo = FALSE parameter was added to the
code chunk to prevent printing of the R code that generated the
plot.
My daily homework
library(magick)
homework_due <- image_read("https://i.chzbgr.com/full/9734644480/h69ADF6A8/hat-have-3-projects-due-at-1159-pm-and-s-1217-am")%>%
image_resize("500x500!")
break_time <- image_read("https://scoopempire.com/wp-content/uploads/2016/12/studying-9.jpg") %>%
image_resize("500x500!")
work_text <- image_blank(width = 500, height = 500, color = "#000000")%>%
image_annotate(text = "On my way\nto study",
color = "#FFFFFF",
size = 80,
font = "Impact",
gravity = "center")
top_row <- image_append(c(work_text, homework_due))
bottom_row <- image_append(c(work_text, break_time))
work_meme <- c(top_row, bottom_row) %>%
image_append(stack = TRUE) %>%
image_scale(800)
image_write(work_meme, "my_meme.png")
meme
My wrong way of studying
library(magick)
image_animate(frame, fps = 2)
image_morph(frame)
frame <- c(study_text, homework_due, study_text2, break_time)
study_gif_1 <- image_animate(frame, fps = 2)
study_gif_2 <- image_morph(frame) %>%
image_animate(fps = 50)
study_animation <- c(study_gif_1, study_gif_2)
image_write(study_animation, "my_animation.gif")
abination
```